Public Class CStockQuery
    Enum StockStatus
        All = 0
        NearExpiry = 1
        Expired = 2
    End Enum
    Private _strCompId As String
    Private _strVendId As String
    Private _strLocId As String
    Private _blnavl As String
    Private _stk As StockStatus
    Public Property Company() As String
        Get
            Return _strCompId
        End Get
        Set(ByVal value As String)
            _strCompId = value
        End Set
    End Property
    Public Property Vendor() As String
        Get
            Return _strVendId
        End Get
        Set(ByVal value As String)
            _strVendId = value
        End Set
    End Property
    Public Property Location() As String
        Get
            Return _strLocId
        End Get
        Set(ByVal value As String)
            _strLocId = value
        End Set
    End Property
    Public Property AvailableOnly() As Boolean
        Get
            Return _blnavl
        End Get
        Set(ByVal value As Boolean)
            _blnavl = value
        End Set
    End Property
    Public Property Status() As StockStatus
        Get
            Return _stk
        End Get
        Set(ByVal value As StockStatus)
            _stk = value
        End Set
    End Property
End Class
